home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / MoreHardware / GluemachineHC.lha / include / Ser.i < prev   
Encoding:
Text File  |  1995-07-12  |  2.3 KB  |  53 lines
  1. **************************************************************
  2. *                           \|/                              *
  3. *                           @ @                              *
  4. *-----------------------ooO-(_)-Ooo--------------------------*
  5. *                                                            *
  6. *             Includes for Simple serial line.               *
  7. *                        Gluemaster                          *
  8. *                          950613                            *
  9. *                                                            *
  10. *------------------------------------------------------------*
  11. *                                                            *
  12. *                                                            *
  13. **************************************************************
  14.  
  15.     XREF InitSer
  16. **************************************************************
  17. * Initialize to a:8:1:N                                      *
  18. * a = BAUD rate                                              *
  19. *------------------------------------------------------------*
  20. * Modifies a,x                                               *
  21. *                                                            *
  22. **************************************************************
  23.  
  24.     XREF RecSer
  25. **************************************************************
  26. * Recieve byte from serial line                              *
  27. * No input                                                   *
  28. *------------------------------------------------------------*
  29. * Modifies a,x                                               *
  30. *                                                            *
  31. **************************************************************
  32.  
  33.     XREF TransSer
  34. **************************************************************
  35. * Transmit byte to serial line                               *
  36. * a = byte to transmit                                       *
  37. *------------------------------------------------------------*
  38. * Modifies x                                                 *
  39. *                                                            *
  40. **************************************************************
  41.  
  42. BAUDMIDI    EQU %00100000
  43. BAUD9600    EQU %00110000
  44. BAUD4800    EQU %00110001
  45. BAUD2400    EQU %00110010
  46. BAUD1200    EQU %00110011
  47. BAUD600        EQU %00110100
  48. BAUD300        EQU %00110101
  49. BAUD150        EQU %00110110
  50. BAUD75        EQU %00110111
  51.  
  52.     END
  53.